home *** CD-ROM | disk | FTP | other *** search
/ CD BIT 75 / CD BIT 75.iso / Software / gimp-2.0.5-i586-setup / gimp-2.0.5-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / addborder.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2004-09-26  |  5.3 KB  |  175 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ; Copyright (C) 1997 Andy Thomas alt@picnic.demon.co.uk
  19. ;
  20. ; Version 0.2 10.6.97 Changed to new script-fu interface in 0.99.10
  21.  
  22. ; Delta the colour by the given amount. Check for boundary conditions
  23. ; If < 0 set to zero 
  24. ; If > 255 set to 255
  25. ; Return the new value
  26.  
  27. (define (deltacolour col delta)
  28.   (let* ((newcol (+ col delta)))
  29.     (if (< newcol 0) (set! newcol 0))
  30.     (if (> newcol 255) (set! newcol 255))
  31.     newcol)
  32.   )
  33.  
  34. (define (adjcolour col delta)
  35.   (mapcar (lambda (x) (deltacolour x delta)) col)
  36. )
  37.  
  38. (define (gen_top_array xsize ysize owidth oheight width height)
  39.   (let* ((n_array (cons-array 10 'double)))
  40.     (aset n_array 0 0 )
  41.     (aset n_array 1 0 )
  42.     (aset n_array 2 xsize)
  43.     (aset n_array 3 ysize)
  44.     (aset n_array 4 (+ xsize owidth))
  45.     (aset n_array 5 ysize)
  46.     (aset n_array 6 width)
  47.     (aset n_array 7 0 )
  48.     (aset n_array 8 0 )
  49.     (aset n_array 9 0 )
  50.     n_array)
  51. )
  52.  
  53. (define (gen_left_array xsize ysize owidth oheight width height)
  54.   (let* ((n_array (cons-array 10 'double)))
  55.     (aset n_array 0 0 )
  56.     (aset n_array 1 0 )
  57.     (aset n_array 2 xsize)
  58.     (aset n_array 3 ysize)
  59.     (aset n_array 4 xsize)
  60.     (aset n_array 5 (+ ysize oheight))
  61.     (aset n_array 6 0 )
  62.     (aset n_array 7 height )
  63.     (aset n_array 8 0 )
  64.     (aset n_array 9 0 )
  65.     n_array)
  66. )
  67.  
  68. (define (gen_right_array xsize ysize owidth oheight width height)
  69.   (let* ((n_array (cons-array 10 'double)))
  70.     (aset n_array 0 width )
  71.     (aset n_array 1 0 )
  72.     (aset n_array 2 (+ xsize owidth))
  73.     (aset n_array 3 ysize)
  74.     (aset n_array 4 (+ xsize owidth))
  75.     (aset n_array 5 (+ ysize oheight))
  76.     (aset n_array 6 width)
  77.     (aset n_array 7 height)
  78.     (aset n_array 8 width )
  79.     (aset n_array 9 0 )
  80.     n_array)
  81. )
  82.  
  83. (define (gen_bottom_array xsize ysize owidth oheight width height)
  84.   (let* ((n_array (cons-array 10 'double)))
  85.     (aset n_array 0 0 )
  86.     (aset n_array 1 height)
  87.     (aset n_array 2 xsize)
  88.     (aset n_array 3 (+ ysize oheight))
  89.     (aset n_array 4 (+ xsize owidth))
  90.     (aset n_array 5 (+ ysize oheight))
  91.     (aset n_array 6 width)
  92.     (aset n_array 7 height)
  93.     (aset n_array 8 0 )
  94.     (aset n_array 9 height)
  95.     n_array)
  96. )
  97.  
  98. (define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
  99.   (let* ((img (car (gimp-drawable-get-image adraw)))
  100.      (owidth (car (gimp-image-width img)))
  101.      (oheight (car (gimp-image-height img)))
  102.      (old-fg (car (gimp-palette-get-foreground)))
  103.          (old-bg (car (gimp-palette-get-background)))
  104.      (width (+ owidth (* 2 xsize)))
  105.      (height (+ oheight (* 2 ysize)))
  106.      (layer (car (gimp-layer-new img width height RGBA-IMAGE "Border-Layer" 100 NORMAL-MODE))))
  107. ;Add this for debugging    (verbose 4)
  108.     (gimp-image-undo-group-start img)
  109.     (gimp-drawable-fill layer TRANSPARENT-FILL)
  110.     (gimp-image-resize img
  111.                width
  112.                    height
  113.                    xsize
  114.                    ysize)
  115.     (gimp-palette-set-background (adjcolour colour dvalue))
  116.     (gimp-free-select img
  117.               10
  118.               (gen_top_array xsize ysize owidth oheight width height)
  119.               CHANNEL-OP-REPLACE
  120.               0
  121.               0
  122.               0.0)
  123.     (gimp-edit-fill layer BACKGROUND-FILL)
  124.     (gimp-palette-set-background (adjcolour colour (/ dvalue 2)))
  125.     (gimp-free-select img
  126.               10
  127.               (gen_left_array xsize ysize owidth oheight width height)
  128.               CHANNEL-OP-REPLACE
  129.               0
  130.               0
  131.               0.0)
  132.     (gimp-edit-fill layer BACKGROUND-FILL)
  133.     (gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2))))
  134.     (gimp-free-select img
  135.               10
  136.               (gen_right_array xsize ysize owidth oheight width height)
  137.               CHANNEL-OP-REPLACE
  138.               0
  139.               0
  140.               0.0)
  141.  
  142.     (gimp-edit-fill layer BACKGROUND-FILL)
  143.     (gimp-palette-set-background (adjcolour colour (- 0 dvalue)))
  144.     (gimp-free-select img
  145.               10
  146.               (gen_bottom_array xsize ysize owidth oheight width height)
  147.               CHANNEL-OP-REPLACE
  148.               0
  149.               0
  150.               0.0)
  151.  
  152.     (gimp-edit-fill layer BACKGROUND-FILL)
  153.     (gimp-selection-none img)
  154.     (gimp-image-add-layer img layer 0)
  155.     (gimp-image-undo-group-end img)
  156.     (gimp-palette-set-background old-bg)
  157.     (gimp-displays-flush)
  158.     )
  159. )
  160.  
  161. (script-fu-register "script-fu-addborder"
  162.             _"<Image>/Script-Fu/Decor/Add _Border..."
  163.             "Add a border around an image"
  164.             "Andy Thomas <alt@picnic.demon.co.uk>"
  165.             "Andy Thomas"
  166.             "6/10/97"
  167.             "RGB*"
  168.             SF-IMAGE "Input Image" 0
  169.             SF-DRAWABLE "Input Drawable" 0
  170.             SF-ADJUSTMENT _"Border X Size" '(12 1 250 1 10 0 1)
  171.             SF-ADJUSTMENT _"Border Y Size" '(12 1 250 1 10 0 1)
  172.             SF-COLOR _"Border Color" '(38 31 207)
  173.             SF-ADJUSTMENT _"Delta Value on Color" '(25 1 255 1 10 0 1)
  174.             )
  175.